home *** CD-ROM | disk | FTP | other *** search
/ Amiga CD-Sensation: Golden Games / Amiga CD-Sensation - Ausgabe 2 - Golden Games (1996)(GTI - Schatztruhe)(DE)[!].iso / Brain Activity / ASokoban2.4 / Install < prev    next >
Text File  |  1995-06-19  |  5KB  |  154 lines
  1. ;;; Strings
  2.  
  3. (set #how-install
  4.      (cat "Do you want to install the whole program or just update the "
  5.           "language catalogs?"))
  6.  
  7. (set #how-install-help
  8.      (cat "Choose \"Install whole program\" if you are installing from "
  9.           "scratch or if you are updating an old version.\n"
  10.           "\nChoose \"Update languages\" if you want to install new "
  11.           "language catalogs."))
  12.  
  13. (set #how-install-1 "Install whole program")
  14. (set #how-install-2 "Update languages")
  15.  
  16. (set #where-install
  17.      "Choose location where you want to install ASokoban.")
  18.  
  19. (set #which-icons
  20.      "Which icons do you want to install with ASokoban?")
  21.  
  22. (set #which-icons-help
  23.      (cat "Choose \"MagicWB icons\" if you have MagicWB installed, "
  24.           "otherwise choose \"Standard icons\"."))
  25.  
  26. (set #which-icons-1 "MagicWB icons")
  27. (set #which-icons-2 "Standard icons")
  28.  
  29. (set #where-languages
  30.      "Where do you want to install the language catalogs?")
  31.  
  32. (set #where-languages-help
  33.      (cat "This lets you choose if you want the language catalogs to be "
  34.           "copied to the same location as the rest of the program, or if "
  35.           "you want to have them in the global Catalog dir."))
  36.  
  37. (set #which-languages
  38.      "Which languages do you want ASokoban to support?")
  39.  
  40. (set #which-languages-help
  41.      (cat "Check all languages you want ASokoban to support.\n"
  42.           "\nIf a language is already installed and you don't check it, "
  43.           "it will be removed."))
  44.  
  45. ;;; Procedures
  46.  
  47. (procedure install-program
  48.   (set @default-dest prog-dest)
  49.   (copylib (source (tackon sourcedir "ASokoban"))
  50.            (dest prog-dest))
  51.   (copylib (source (tackon sourcedir "ASokoban.guide"))
  52.            (dest prog-dest)))
  53.  
  54. (procedure install-icons
  55.   (set which-icons (askchoice (prompt #which-icons)
  56.                               (help #which-icons-help)
  57.                               (choices #which-icons-1 #which-icons-2)))
  58.   (copyfiles (source icon-srcdir)
  59.              (dest prog-dest)
  60.              (choices "ASokoban.info"))
  61.   (if (= which-icons 1)
  62.       (set icon-srcdir (tackon icon-srcdir "misc")))
  63.   (copyfiles (source icon-srcdir)
  64.              (dest prog-dest)
  65.              (choices "ASokoban.guide.info"))
  66.   (tooltype (dest (tackon prog-dest "ASokoban"))
  67.             (noposition))
  68.   (tooltype (dest (tackon prog-dest "ASokoban.guide"))
  69.             (noposition)))
  70.  
  71. (procedure install-locales
  72.   (set where-languages (askchoice (prompt #where-languages)
  73.                                   (help #where-languages-help)
  74.                                   (choices locale-dest
  75.                                            locale-sysdest)))
  76.   (if (= where-languages 1)
  77.       (set locale-dest locale-sysdest))
  78.   (set which-languages (askoptions (prompt #which-languages)
  79.                                    (help #which-languages-help)
  80.                                    (choices "Dansk"
  81.                                             "Deutsch"
  82.                                             "Nederlands"
  83.                                             "Norsk"
  84.                                             "Polski"
  85.                                             "Suomi"
  86.                                             "Svenska")))
  87.   (set locale "dansk")
  88.   (if (IN which-languages 0)
  89.       (install-locale)
  90.       (remove-locale))
  91.   (set locale "deutsch")
  92.   (if (IN which-languages 1)
  93.       (install-locale)
  94.       (remove-locale))
  95.   (set locale "nederlands")
  96.   (if (IN which-languages 2)
  97.       (install-locale)
  98.       (remove-locale))
  99.   (set locale "norsk")
  100.   (if (IN which-languages 3)
  101.       (install-locale)
  102.       (remove-locale))
  103.   (set locale "polski")
  104.   (if (IN which-languages 4)
  105.       (install-locale)
  106.       (remove-locale))
  107.   (set locale "suomi")
  108.   (if (IN which-languages 5)
  109.       (install-locale)
  110.       (remove-locale))
  111.   (set locale "svenska")
  112.   (if (IN which-languages 6)
  113.       (install-locale)
  114.       (remove-locale)))
  115.  
  116. (procedure install-locale
  117.   (makedir locale-dest)
  118.   (makedir (tackon locale-dest locale))
  119.   (copylib (source (tackon (tackon locale-srcdir locale) "asokoban.catalog"))
  120.            (dest (tackon locale-dest locale))))
  121.  
  122. (procedure remove-locale
  123.   (delete (tackon (tackon locale-dest locale) "asokoban.catalog"))
  124.   (if (NOT (= locale-dest locale-sysdest))
  125.       ((delete (tackon locale-dest locale))
  126.        (delete locale-dest))))
  127.  
  128.  
  129. ;;; Main program
  130.  
  131. (set sourcedir (pathonly @icon))
  132. (set icon-srcdir sourcedir)
  133. (set locale-srcdir (tackon sourcedir "Catalogs"))
  134. (set locale-sysdest "LOCALE:Catalogs")
  135.  
  136. (set prog-dest (askdir (prompt #where-install)
  137.                        (help @askdir-help)
  138.                        (default @default-dest)))
  139.  
  140. (set how-install (askchoice (prompt #how-install)
  141.                             (help #how-install-help)
  142.                             (choices #how-install-1 #how-install-2)))
  143.  
  144. (if (= how-install 0)
  145.     ((install-program)
  146.      (install-icons)
  147.      (run (cat "convscorefile \"" prog-dest "\""))
  148.      (delete (tackon prog-dest "ASokoban.doc"))
  149.      (delete (tackon prog-dest "ASokoban.doc.info")))
  150.     (set @default-dest ""))
  151.  
  152. (set locale-dest (tackon prog-dest "Catalogs"))
  153. (install-locales)
  154.